home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / cat / editdraw.d < prev    next >
Text File  |  1997-10-26  |  1KB  |  46 lines
  1. DEFINITION MODULE EditDraw;
  2.  
  3. FROM SYSTEM     IMPORT ADDRESS;
  4. FROM GrafBase   IMPORT Rectangle;
  5. FROM EditTypes  IMPORT EDITPTR;
  6.  
  7. CONST   
  8.         UP      = 0;
  9.         DOWN    = 1;
  10.         RIGHT   = 0;
  11.         LEFT    = 1;
  12.         
  13. PROCEDURE drawLine (ed : EDITPTR; screenLine : INTEGER);
  14.  
  15. PROCEDURE redrawLine (ed : EDITPTR; insChar : BOOLEAN; full : BOOLEAN);
  16.  
  17. PROCEDURE GetBlockRects (VAR ed: EDITPTR; VAR blockRects: ARRAY OF Rectangle;
  18.                          VAR count: INTEGER;
  19.                          oldLine : LONGINT; oldRow : INTEGER; 
  20.                          newLine : LONGINT; newRow : INTEGER);
  21.  
  22. PROCEDURE MarkArea (VAR ed : EDITPTR; oldLine : LONGINT; oldRow : INTEGER; 
  23.                     newLine : LONGINT; newRow : INTEGER; clipIt : BOOLEAN);
  24.  
  25.         (* Vorhandener Block wird angezeigt *)
  26. PROCEDURE ShowBlockMark (VAR ed : EDITPTR; clipIt : BOOLEAN);
  27.  
  28.         (* Alle redraw-Funktionen *)
  29. PROCEDURE redrawWdw (wdw, vdiH : INTEGER; special : ADDRESS; frame : Rectangle);
  30. (* Service-Routine fr Window-Library *)
  31.  
  32. PROCEDURE redrawLines (ed : EDITPTR; fromLine : INTEGER);
  33.  
  34. PROCEDURE redrawLineArea (ed : EDITPTR; fromLine, toLine : LONGINT);
  35. (* Hier werden richtige Zeilennummern bergeben, nicht die Bildschirmzeilen *)
  36.  
  37.         (* Scroll-Funktionen *)
  38.  
  39. PROCEDURE scrollRegion (ed : EDITPTR; from, to, amount : INTEGER);
  40.  
  41.         (* Bl„tterfunktionen *)
  42.  
  43. PROCEDURE CenterCurrline (ed : EDITPTR);
  44.  
  45. END EditDraw.
  46.